home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / PWABFV20.ZIP / EFLAG.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-02-19  |  10KB  |  774 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.O1 (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Boolean  BOOLEAN002
  21.     Boolean  BOOLEAN003
  22.     Boolean  BOOLEAN004
  23.     String   STRING001
  24.     String   TSTRING002(1)
  25.     String   TSTRING003(1)
  26.     String   TSTRING004(1)
  27.     String   TSTRING005(1)
  28.     String   STRING006
  29.     String   TSTRING007(1)
  30.     String   TSTRING008(1)
  31.     String   TSTRING009(1)
  32.     String   TSTRING010(1)
  33.     String   STRING011
  34.     String   TSTRING012(1)
  35.     String   STRING013
  36.     String   STRING014
  37.     String   STRING016
  38.     String   STRING019
  39.     String   STRING020
  40.     String   STRING021
  41.     String   STRING022
  42.     String   STRING023
  43.     String   STRING024
  44.     String   STRING029
  45.     Int      TINT001(1)
  46.     Int      INT002
  47.     Int      INT003
  48.     Int      TINT004(1)
  49.     Int      INT005
  50.     Int      INT006
  51.     Int      INT007
  52.     Int      INT008
  53.     Int      INT009
  54.     Int      INT010
  55.     Int      INT011
  56.     Int      INT012
  57.     Int      INT013
  58.     Int      INT014
  59.     Int      INT015
  60.     Int      INT016
  61.     Int      INT020
  62.     Int      INT026
  63.     Int      INT027
  64.     Declare  Function FUNCTION001() String
  65.     Declare  Function FUNCTION002() String
  66.     Declare  Procedure PROC001()
  67.     Declare  Procedure PROC002()
  68.     Declare  Procedure PROC003()
  69.     Declare  Procedure PROC004()
  70.     Declare  Procedure PROC005()
  71.     Declare  Procedure PROC006(Int INT023, Int INT024, Int INT025)
  72.     Declare  Procedure PROC007()
  73.     Declare  Procedure PROC008(String STRING015)
  74.     Declare  Procedure PROC009()
  75.     Declare  Procedure PROC010()
  76.     Declare  Procedure PROC011(Int INT021, Int INT022, String STRING018)
  77.     Declare  Procedure PROC012(Int INT017, Var Int INT018, Var Int INT019, Var Boolean BOOLEAN005, String STRING017)
  78.     Declare  Procedure PROC013()
  79.     Declare  Procedure PROC014()
  80.  
  81. ;------------------------------------------------------------------------------
  82.  
  83.     PROC001()
  84.     PROC004()
  85.     PROC005()
  86.     End
  87.  
  88. ;------------------------------------------------------------------------------
  89.  
  90.     Procedure PROC005()
  91.  
  92.     Int      INT011
  93.     Int      INT012
  94.     Int      INT013
  95.     String   STRING014
  96.     Boolean  BOOLEAN003
  97.  
  98.     PROC002()
  99.     STRING014 = ""
  100.     INT011 = 1
  101.     INT012 = 1
  102.     PROC006(1, INT011, INT012)
  103.     BOOLEAN003 = 0
  104.     :LABEL001
  105.     If (BOOLEAN003) Goto LABEL003
  106.     INT013 = Asc(Inkey())
  107.     Select Case (INT013)
  108.         Case 82, 54, 62, 93
  109.             INT012 = INT011
  110.             Inc INT011
  111.             If (INT011 > INT003) INT011 = 1
  112.             PROC006(1, INT011, INT012)
  113.         Case 76, 52, 9, 60, 91
  114.             INT012 = INT011
  115.             Dec INT011
  116.             If (INT011 < 1) INT011 = INT003
  117.             PROC006(1, INT011, INT012)
  118.         Case 85, 56
  119.             INT009 = GetY()
  120.             INT010 = INT009
  121.             STRING014 = FUNCTION001()
  122.             If (STRING014 <> "") Then
  123.                 PROC008(STRING014)
  124.                 PROC009()
  125.                 PROC002()
  126.             Endif
  127.             STRING014 = ""
  128.             INT011 = 1
  129.             INT012 = 1
  130.             PROC006(1, INT011, INT012)
  131.         Case 68, 50, 32
  132.             If ((INT013 == 32) && (BOOLEAN002 == 0)) Goto LABEL002
  133.             INT009 = GetY()
  134.             INT010 = 0
  135.             STRING014 = FUNCTION002()
  136.             If (STRING014 <> "") Then
  137.                 PROC008(STRING014)
  138.                 PROC009()
  139.                 PROC002()
  140.             Endif
  141.             STRING014 = ""
  142.             INT011 = 1
  143.             INT012 = 1
  144.             PROC006(1, INT011, INT012)
  145.             :LABEL002
  146.         Case 33
  147.             PROC013()
  148.         Case 63
  149.             PROC014()
  150.         Case 13
  151.             PROC011(1, INT011, STRING014)
  152.             BOOLEAN003 = 1
  153.         Case 27
  154.             If (BOOLEAN001) Then
  155.                 PROC009()
  156.                 KbdStuff "N"
  157.                 BOOLEAN003 = 1
  158.             Endif
  159.             PROC012(1, INT011, INT012, BOOLEAN003, Chr(INT013))
  160.         Case tñ⌠
  161.             PROC006(1, INT011, INT012)
  162.             If (BOOLEAN001) PROC011(1, INT011, STRING014)
  163.             BOOLEAN003 = BOOLEAN001
  164.     End Select
  165.     Goto LABEL001
  166.     :LABEL003
  167.  
  168.     EndProc
  169.  
  170.  
  171. ;------------------------------------------------------------------------------
  172.  
  173.     Procedure PROC008(String STRING015)
  174.  
  175.     Int      INT014
  176.     Int      INT015
  177.     Int      INT016
  178.     String   STRING016
  179.     Boolean  BOOLEAN004
  180.  
  181.     INT014 = 1
  182.     INT015 = 1
  183.     PROC003()
  184.     PROC006(2, INT014, INT015)
  185.     BOOLEAN004 = 0
  186.     :LABEL004
  187.     If (BOOLEAN004) Goto LABEL006
  188.     STRING016 = Inkey()
  189.     INT016 = Asc(STRING016)
  190.     Select Case (INT016)
  191.         Case 85, 56
  192.             PROC010()
  193.             STRING015 = FUNCTION001()
  194.             If (STRING015 == "") Then
  195.                 BOOLEAN004 = 1
  196.             Endif
  197.         Case 68, 50, 32
  198.             If ((INT016 == 32) && (BOOLEAN002 == 0)) Goto LABEL005
  199.             PROC010()
  200.             STRING015 = FUNCTION002()
  201.             If (STRING015 == "") Then
  202.                 BOOLEAN004 = 1
  203.             Endif
  204.             :LABEL005
  205.         Case 82, 54
  206.             INT015 = INT014
  207.             Inc INT014
  208.             If (INT014 > INT006) INT014 = 1
  209.             PROC006(2, INT014, INT015)
  210.         Case 76, 52
  211.             INT015 = INT014
  212.             Dec INT014
  213.             If (INT014 < 1) INT014 = INT006
  214.             PROC006(2, INT014, INT015)
  215.         Case 72
  216.             INT015 = INT014
  217.             INT014 = 1
  218.             PROC006(2, INT014, INT015)
  219.         Case 69
  220.             INT015 = INT014
  221.             INT014 = INT006
  222.             PROC006(2, INT014, INT015)
  223.         Case 27
  224.             If (BOOLEAN001) Then
  225.                 BOOLEAN004 = BOOLEAN001
  226.                 PROC010()
  227.                 PROC009()
  228.             Endif
  229.         Case 33
  230.             PROC013()
  231.         Case 63
  232.             PROC014()
  233.         Case 13
  234.             PROC011(2, INT014, STRING015)
  235.             BOOLEAN004 = 1
  236.             PROC012(2, INT014, INT015, BOOLEAN004, STRING016)
  237.         Case tñ⌠
  238.             PROC006(2, INT014, INT015)
  239.             If (BOOLEAN001) PROC011(2, INT014, STRING015)
  240.             BOOLEAN004 = BOOLEAN001
  241.     End Select
  242.     Goto LABEL004
  243.     :LABEL006
  244.  
  245.     EndProc
  246.  
  247.  
  248. ;------------------------------------------------------------------------------
  249.  
  250.     Procedure PROC012(Int INT017, Var Int INT018, Var Int INT019, Var Boolean BOOLEAN005, String STRING017)
  251.  
  252.     Int      INT020
  253.  
  254.     INT020 = 1
  255.     Select Case (INT017)
  256.         Case 1
  257.             :LABEL007
  258.             If (BOOLEAN005) Goto LABEL008
  259.             If (Lower(STRING017) == Lower(TSTRING004(INT020))) Then
  260.                 INT019 = INT018
  261.                 INT018 = INT020
  262.                 BOOLEAN005 = 1
  263.             Else
  264.                 Inc INT020
  265.                 If (INT020 > INT003) Goto LABEL008
  266.             Endif
  267.             Goto LABEL007
  268.             :LABEL008
  269.         Case 2
  270.             :LABEL009
  271.             If (BOOLEAN005) Goto LABEL011
  272.             If ((Asc(STRING017) == 27) && (TSTRING010(INT020) == "quit")) Then
  273.                 INT019 = INT018
  274.                 INT018 = INT020
  275.                 BOOLEAN005 = 1
  276.                 Goto LABEL010
  277.             Endif
  278.             If (Lower(STRING017) == Lower(TSTRING009(INT020))) Then
  279.                 BOOLEAN005 = 1
  280.                 INT019 = INT018
  281.                 INT018 = INT020
  282.                 Goto LABEL010
  283.             Endif
  284.             Inc INT020
  285.             If (INT020 > INT006) Goto LABEL011
  286.             :LABEL010
  287.             Goto LABEL009
  288.     End Select
  289.     :LABEL011
  290.  
  291.     EndProc
  292.  
  293.  
  294. ;------------------------------------------------------------------------------
  295.  
  296.     Procedure PROC011(Int INT021, Int INT022, String STRING018)
  297.  
  298.     String   STRING019
  299.  
  300.     Select Case (INT021)
  301.         Case 1
  302.             STRING019 = Lower(TSTRING005(INT022))
  303.             Print Chr(13)
  304.             ClrEol
  305.             Print Chr(13)
  306.             Select Case (STRING019)
  307.                 Case "cont"
  308.                     KbdStuff Chr(13)
  309.                 Case "flag"
  310.                     If (STRING018 <> "") Then
  311.                         KbdStuff "FL " + STRING018
  312.                     Else
  313.                         KbdStuff "FL"
  314.                     Endif
  315.                 Case "view"
  316.                     If (STRING018 <> "") Then
  317.                         KbdStuff "F " + Chr(13) + "/VIEW" + Chr(13) + STRING018
  318.                     Else
  319.                         KbdStuff "F" + Chr(13) + "/VIEW"
  320.                         SaveScrn
  321.                     Endif
  322.                 Case "nstop"
  323.                     KbdStuff "NS"
  324.                 Case "stop"
  325.                     KbdStuff "N"
  326.                 Case Else
  327.                     DispStr STRING019
  328.             End Select
  329.         Case 2
  330.             STRING019 = Lower(TSTRING010(INT022))
  331.             If (STRING019 == "flag") Then
  332.                 PROC010()
  333.                 PROC009()
  334.                 KbdStuff "FL " + STRING018
  335.                 End
  336.                 Goto LABEL012
  337.             Endif
  338.             If (STRING019 == "view") Then
  339.                 PROC010()
  340.                 PROC009()
  341.                 KbdStuff "F " + Chr(13) + "/VIEW" + Chr(13) + STRING018
  342.                 SaveScrn
  343.                 End
  344.                 Goto LABEL012
  345.             Endif
  346.             If (STRING019 == "quit") Then
  347.                 PROC010()
  348.                 PROC009()
  349.                 Goto LABEL012
  350.             Endif
  351.             PROC010()
  352.             PROC009()
  353.             SaveScrn
  354.             DispStr STRING019 + " " + STRING018
  355.             RestScrn
  356.             StartDisp 0
  357.             StartDisp 2
  358.     End Select
  359.     :LABEL012
  360.  
  361.     EndProc
  362.  
  363.  
  364. ;------------------------------------------------------------------------------
  365.  
  366.     Procedure PROC009()
  367.  
  368.     Print Chr(27) + "[u"
  369.     ClrEol
  370.  
  371.     EndProc
  372.  
  373.  
  374. ;------------------------------------------------------------------------------
  375.  
  376.     Procedure PROC010()
  377.  
  378.     Print Chr(27) + "[u" + Chr(27) + "[" + String(INT009 - INT008) + "A"
  379.     Print STRING013 + Chr(13)
  380.  
  381.     EndProc
  382.  
  383.  
  384. ;------------------------------------------------------------------------------
  385.  
  386.     Function FUNCTION001() String
  387.  
  388.     String   STRING021
  389.     String   STRING022
  390.  
  391.     STRING021 = ""
  392.     While (INT010 > 0) Do
  393.         Dec INT010
  394.         If (TSTRING012(INT010) <> "") Then
  395.             PROC007()
  396.             STRING021 = TSTRING012(INT010)
  397.             Break
  398.         Endif
  399.     EndWhile
  400.     FUNCTION001 = STRING021
  401.  
  402.     EndFunc
  403.  
  404.  
  405. ;------------------------------------------------------------------------------
  406.  
  407.     Function FUNCTION002() String
  408.  
  409.     String   STRING023
  410.     String   STRING024
  411.  
  412.     STRING023 = ""
  413.     While (INT010 < INT009) Do
  414.         Inc INT010
  415.         If (TSTRING012(INT010) <> "") Then
  416.             PROC007()
  417.             STRING023 = TSTRING012(INT010)
  418.             Break
  419.         Endif
  420.     EndWhile
  421.     FUNCTION002 = STRING023
  422.  
  423.     EndFunc
  424.  
  425.  
  426. ;------------------------------------------------------------------------------
  427.  
  428.     Procedure PROC007()
  429.  
  430.     Print Chr(27) + "[u" + Chr(27) + "[" + String(INT009 - INT010) + "A"
  431.     INT008 = INT010
  432.     STRING013 = ScrText(1, INT008, INT007, 1)
  433.     Print STRING011 + StripAtx(STRING013) + Chr(13)
  434.  
  435.     EndProc
  436.  
  437.  
  438. ;------------------------------------------------------------------------------
  439.  
  440.     Procedure PROC004()
  441.  
  442.     String   STRING024
  443.  
  444.     INT010 = 1
  445.     While (INT010 > 0) Do
  446.         ScrFile INT010, STRING024
  447.         If (INT010 <> 0) Then
  448.             TSTRING012(INT010) = STRING024
  449.             Inc INT010
  450.         Endif
  451.     EndWhile
  452.  
  453.     EndProc
  454.  
  455.  
  456. ;------------------------------------------------------------------------------
  457.  
  458.     Procedure PROC006(Int INT023, Int INT024, Int INT025)
  459.  
  460.     Print Chr(27) + "[u" + Chr(13)
  461.     If (INT023 == 1) Then
  462.         Forward TINT001(INT025) - 1
  463.         Print TSTRING002(INT025)
  464.     Else
  465.         Forward TINT004(INT025) - 1
  466.         Print TSTRING007(INT025)
  467.     Endif
  468.     Print Chr(13)
  469.     If (INT023 == 1) Then
  470.         Forward TINT001(INT024) - 1
  471.         Print TSTRING003(INT024)
  472.     Else
  473.         Forward TINT004(INT024) - 1
  474.         Print TSTRING008(INT024)
  475.     Endif
  476.  
  477.     EndProc
  478.  
  479.  
  480. ;------------------------------------------------------------------------------
  481.  
  482.     Procedure PROC003()
  483.  
  484.     Int      INT026
  485.  
  486.     DefColor
  487.     Print Chr(27) + "[u" + Chr(13)
  488.     ClrEol
  489.     Print Chr(13) + Chr(27) + "[s"
  490.     Print STRING006
  491.     TINT004(1) = GetX()
  492.     For INT026 = 1 To INT006
  493.         Print TSTRING007(INT026) + Space(INT005)
  494.         TINT004(1 + INT026) = TINT004(INT026) + Len(StripAtx(TSTRING007(INT026)))
  495.     Next
  496.     ClrEol
  497.     DefColor
  498.  
  499.     EndProc
  500.  
  501.  
  502. ;------------------------------------------------------------------------------
  503.  
  504.     Procedure PROC002()
  505.  
  506.     Int      INT027
  507.  
  508.     Print Chr(27) + "[s"
  509.     Print STRING001
  510.     TINT001(1) = GetX()
  511.     For INT027 = 1 To INT003
  512.         TINT001(INT027 + 1) = TINT001(INT027) + Len(StripAtx(TSTRING002(INT027)))
  513.         Print TSTRING002(INT027) + Space(INT002)
  514.     Next
  515.  
  516.     EndProc
  517.  
  518.  
  519. ;------------------------------------------------------------------------------
  520.  
  521.     Procedure PROC001()
  522.  
  523.     String   STRING025
  524.     String   STRING026
  525.     String   STRING027
  526.     String   STRING028
  527.     Int      INT028
  528.  
  529.     GetUser
  530.     If (U_PageLen) Goto LABEL013
  531.     End
  532.     Goto LABEL014
  533.     :LABEL013
  534.     Redim TSTRING012, U_PageLen + 1
  535.     :LABEL014
  536.     STRING025 = PPEPath() + "EFLAG.CFG"
  537.     STRING026 = PPEPath() + "PROMPT1.CFG"
  538.     STRING027 = PPEPath() + "PROMPT2.CFG"
  539.     If (Exist(STRING025)) Then
  540.         STRING011 = ReadLine(STRING025, 1)
  541.         INT007 = S2I(ReadLine(STRING025, 2), 10)
  542.         If (Lower(ReadLine(STRING025, 3)) == "yes") Then
  543.             BOOLEAN001 = 1
  544.         Else
  545.             BOOLEAN001 = 0
  546.         Endif
  547.         If (Lower(ReadLine(STRING025, 4)) == "yes") Then
  548.             BOOLEAN002 = 1
  549.         Else
  550.             BOOLEAN002 = 0
  551.         Endif
  552.     Else
  553.         STRING011 = "@X4F"
  554.         INT007 = 79
  555.         BOOLEAN001 = 1
  556.         BOOLEAN002 = 0
  557.     Endif
  558.     If (Exist(STRING026)) Then
  559.         FOpen 1, STRING026, 0, 2
  560.         FDefIn 1
  561.         FDGet STRING001
  562.         FDGet STRING028
  563.         INT002 = S2I(STRING028, 10)
  564.         FDGet STRING028
  565.         INT003 = S2I(STRING028, 10)
  566.         If (INT003) Then
  567.             Redim TSTRING002, INT003 + 1
  568.             Redim TSTRING003, INT003 + 1
  569.             Redim TSTRING004, INT003 + 1
  570.             Redim TSTRING005, INT003 + 1
  571.             Redim TINT001, INT003 + 1
  572.             For INT028 = 1 To INT003
  573.                 FDGet TSTRING002(INT028)
  574.                 FDGet TSTRING003(INT028)
  575.                 FDGet TSTRING004(INT028)
  576.                 FDGet TSTRING005(INT028)
  577.             Next
  578.             FClose 1
  579.         Else
  580.             End
  581.         Endif
  582.     Else
  583.         STRING001 = "@X08-[@X0FEFLAG 2.0@X08]-[@X0F@MINLEFT@ @X07min left@X08] @X07"
  584.         INT002 = 0
  585.         INT003 = 5
  586.         Redim TSTRING002, 6
  587.         Redim TSTRING003, 6
  588.         Redim TSTRING004, 6
  589.         Redim TSTRING005, 6
  590.         Redim TINT001, 6
  591.         TSTRING002(1) = "@X08 Cont @X07"
  592.         TSTRING003(1) = "@X4F CONT @X07"
  593.         TSTRING004(1) = "C"
  594.         TSTRING005(1) = "cont"
  595.         TSTRING002(2) = "@X08 Flag @X07"
  596.         TSTRING003(2) = "@X4F FLAG @X07"
  597.         TSTRING004(2) = "F"
  598.         TSTRING005(2) = "flag"
  599.         TSTRING002(3) = "@X08 View @X07"
  600.         TSTRING003(3) = "@X4F VIEW @X07"
  601.         TSTRING004(3) = "V"
  602.         TSTRING005(3) = "view"
  603.         TSTRING002(4) = "@X08 NStop @X07"
  604.         TSTRING003(4) = "@X4F NSTOP @X07"
  605.         TSTRING004(4) = "N"
  606.         TSTRING005(4) = "nstop"
  607.         TSTRING002(5) = "@X08 Stop @X07"
  608.         TSTRING003(5) = "@X4F STOP @X07"
  609.         TSTRING004(5) = "S"
  610.         TSTRING005(5) = "stop"
  611.     Endif
  612.     If (Exist(STRING027)) Then
  613.         FOpen 1, STRING027, 0, 2
  614.         FDefIn 1
  615.         FDGet STRING006
  616.         FDGet STRING028
  617.         INT005 = S2I(STRING028, 10)
  618.         FDGet STRING028
  619.         INT006 = S2I(STRING028, 10)
  620.         If (INT006) Then
  621.             Redim TSTRING007, INT006 + 1
  622.             Redim TSTRING008, INT006 + 1
  623.             Redim TSTRING009, INT006 + 1
  624.             Redim TSTRING010, INT006 + 1
  625.             Redim TINT004, INT006 + 1
  626.             For INT028 = 1 To INT006
  627.                 FDGet TSTRING007(INT028)
  628.                 FDGet TSTRING008(INT028)
  629.                 FDGet TSTRING009(INT028)
  630.                 FDGet TSTRING010(INT028)
  631.             Next
  632.             FClose 1
  633.         Else
  634.             End
  635.         Endif
  636.     Else
  637.         STRING006 = "@X08[@X0FFlag Cmds@X08] @X07"
  638.         INT005 = 0
  639.         INT006 = 3
  640.         Redim TSTRING007, 3
  641.         Redim TSTRING008, 3
  642.         Redim TSTRING009, 3
  643.         Redim TSTRING010, 3
  644.         Redim TINT004, 3
  645.         TSTRING007(1) = "@X08 Flag @X07"
  646.         TSTRING008(1) = "@X4F FLAG @X07"
  647.         TSTRING009(1) = "F"
  648.         TSTRING010(1) = "flag"
  649.         TSTRING007(2) = "@X08 View @X07"
  650.         TSTRING008(2) = "@X4F VIEW @X07"
  651.         TSTRING009(2) = "V"
  652.         TSTRING010(2) = "view"
  653.         TSTRING007(3) = "@X08 Quit @X07"
  654.         TSTRING008(3) = "@X4F QUIT @X07"
  655.         TSTRING009(3) = "Q"
  656.         TSTRING010(3) = "quit"
  657.     Endif
  658.     RestScrn
  659.     ClrEol
  660.  
  661.     EndProc
  662.  
  663.  
  664. ;------------------------------------------------------------------------------
  665.  
  666.     Procedure PROC013()
  667.  
  668.     String   STRING029
  669.  
  670.     STRING029 = "@X0FEnhanced Flag v2.0 by Drew [PWA]@X07"
  671.     SaveScrn
  672.     PROC009()
  673.     Print Chr(13)
  674.     Print Space((79 - Len(StripAtx(STRING029))) / 2) + STRING029
  675.     Delay 35
  676.     RestScrn
  677.  
  678.     EndProc
  679.  
  680.  
  681. ;------------------------------------------------------------------------------
  682.  
  683.     Procedure PROC014()
  684.  
  685.     If (Exist(PPEPath() + "EFLAG.HLP")) Then
  686.         SaveScrn
  687.         DispFile PPEPath() + "EFLAG.HLP", 0
  688.         RestScrn
  689.     Endif
  690.  
  691.     EndProc
  692.  
  693.  
  694. ;------------------------------------------------------------------------------
  695. ;
  696. ; Usage report (before postprocessing)
  697. ;
  698. ; ■ Statements used :
  699. ;
  700. ;    6       End
  701. ;    5       ClrEol
  702. ;    128     Goto 
  703. ;    134     Let 
  704. ;    22      Print 
  705. ;    78      If 
  706. ;    1       DispFile 
  707. ;    2       FOpen 
  708. ;    2       FClose 
  709. ;    2       StartDisp 
  710. ;    1       GetUser
  711. ;    2       DefColor
  712. ;    1       Delay 
  713. ;    6       Inc 
  714. ;    3       Dec 
  715. ;    10      KbdStuff 
  716. ;    2       DispStr 
  717. ;    4       Forward 
  718. ;    5       SaveScrn
  719. ;    4       RestScrn
  720. ;    2       FDefIn 
  721. ;    14      FDGet 
  722. ;    21      Redim 
  723. ;    1       ScrFile 
  724. ;    14      EndProc
  725. ;    2       EndFunc
  726. ;
  727. ;
  728. ; ■ Functions used :
  729. ;
  730. ;    1       /
  731. ;    62      +
  732. ;    7       -
  733. ;    59      ==
  734. ;    7       <>
  735. ;    7       <
  736. ;    4       <=
  737. ;    6       >
  738. ;    8       >=
  739. ;    70      !
  740. ;    11      &&
  741. ;    19      ||
  742. ;    3       Len(
  743. ;    8       Lower()
  744. ;    3       Space()
  745. ;    25      Chr()
  746. ;    3       Asc()
  747. ;    4       StripAtx()
  748. ;    2       Inkey()
  749. ;    2       String()
  750. ;    5       PPEPath()
  751. ;    4       ReadLine()
  752. ;    4       Exist()
  753. ;    5       S2I()
  754. ;    2       GetX()
  755. ;    2       GetY()
  756. ;    1       ScrText()
  757. ;
  758. ;------------------------------------------------------------------------------
  759. ;
  760. ; Analysis flags : No flag
  761. ;
  762. ;------------------------------------------------------------------------------
  763. ;
  764. ; Postprocessing report
  765. ;
  766. ;    4       For/Next
  767. ;    3       While/EndWhile
  768. ;    27      If/Then or If/Then/Else
  769. ;    5       Select Case
  770. ;
  771. ;------------------------------------------------------------------------------
  772. ;                 AEGiS Corp - Break the routines, code against the machines!
  773. ;------------------------------------------------------------------------------
  774.